# load excel
library(readxl)

read_xlsx_data <- function(file){
  sheet_data <- read_excel(file, sheet=2)
  return(sheet_data)
}
